unit EmiFatura;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, Buttons, ExtCtrls, FMTBcd, DB, SqlExpr, RpCon,
  RpConDS, RpBase, RpSystem, RpDefine, RpRave;

type
  TFrmEmiFatura = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Edit1: TEdit;
    Label3: TLabel;
    Label1: TLabel;
    MaskEdit1: TMaskEdit;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    Bevel1: TBevel;
    SQLQReceber: TSQLQuery;
    RPFatura: TRvProject;
    RSFatura: TRvSystem;
    RDSCFatura: TRvDataSetConnection;
    SQLQClientes: TSQLQuery;
    RDSClientes: TRvDataSetConnection;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmEmiFatura: TFrmEmiFatura;

implementation

{$R *.dfm}

procedure TFrmEmiFatura.BitBtn1Click(Sender: TObject);
begin
  SQLQReceber.Open;
  SQLQClientes.Open;
  RPFatura.Execute;
end;

end.
